Imports Common.Env


Public Class TipoDomicilios
    Inherits StartFrame.BR.Abm

    Sub New()
        MyBase.New(Operador, Password, "watipodom", "wad_tipo_domicilios")
    End Sub

    Private Sub TipoDomicilios_Eliminando(ByRef cancela As Boolean, ByRef row As System.Data.DataRow) Handles MyBase.Eliminando

        'Valida que no elimine un registro marcado como de sistema
        If CType(row.Item("st_interno_sistema", DataRowVersion.Original), Boolean) = True Then
            row.SetColumnError("tp_domicilio", "No se puede eliminar el registro.")
        End If

    End Sub

    Private Sub TipoDomicilios_Validando(ByRef cancela As Boolean, ByRef paramDataTable As System.Data.DataTable) Handles MyBase.Validando

        Dim row As DataRow

        For Each row In paramDataTable.Rows

            'Carga el dato por defecto
            If row.RowState <> DataRowState.Deleted Then
                If IsDBNull(row!st_interno_sistema) OrElse CType(row!st_interno_sistema, Boolean) <> True Then
                    row!st_interno_sistema = False
                End If
            End If

        Next

    End Sub
End Class
